home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / DIALERRR.bas < prev    next >
BASIC Source File  |  2019-02-17  |  811b  |  18 lines
  1. 0  HOME :Y = 8
  2. 1  IF C = 0  OR C = 2  OR C = 4  OR C = 6  OR C = 8  THEN  HOME 
  3. 2  PRINT "Now dialing (805) 23"Y"-"A""B""C""D
  4. 10  IF A = 9  AND B = 9  AND C = 9  AND D = 9  THEN  GOSUB 200: GOTO 1
  5. 20  IF B = 9  AND C = 9  AND D = 9  THEN  GOSUB 150: GOTO 1
  6. 30  IF C = 9  AND D = 9  THEN  GOSUB 100: GOTO 1
  7. 33  IF D = 9  THEN  GOSUB 50: GOTO 1
  8. 35 D = (D +1)
  9. 45  GOTO 2
  10. 50 C = (C +1):D = 0: RETURN 
  11. 100 B = (B +1):C = 0:D = 0: RETURN 
  12. 150 A = (A +1):B = 0:C = 0:D = 0: RETURN 
  13. 200 Y = (Y +1):A = 0:B = 0:C = 0:D = 0
  14. 210  IF Y >9  THEN 999
  15. 220  RETURN 
  16. 999  HOME : PRINT : PRINT "I have finished calling every possible number in the area.": FOR X = 1 TO 3: GOSUB 1000: NEXT : PRINT "End run!": END 
  17. 1000  PRINT  CHR$(7): RETURN 
  18. 2000  REM <CTRL-J><CTRL-J>/blank3/tools/dialer<CTRL-J><CTRL-J>Nov  86<CTRL-J><CTRL-J>